View Replies (5)
Resolved Persistent app crash caused by string parsing in subroutine.
  1. Issue
  2.  Crash
  3.  PowerBuilder (Appeon)
0 Votes
  1. kevin kevin rowe
  2. PowerBuilder
  3. Friday, 24 February 2023 04:53 PM UTC

i have a code module that was working fine,

I have had to add a section of code to it to place a database field of (up to) 1000 characters in 4 dot matrix report fields of flat 70 characters.

To do this I created a subroutine that would read the field in from the database, chunk it into words, then pack the words into the available space in the print fields and exit if it ran out of fields, or text to pack in.

This turned into a nightmare of random IDE crashes and random .exe crashes when the code is executed. 

IDE is PB 2017 R3 Build 1915.

I have looked into debug logs and the fault is always c0000005 in PBSH170.DLL offset 000C34C0 in the IDE and if the compiled .exe is run, then it is offset 00060E95.

Nothing I have tried has resolved this issue, as it is random if it fails in the IDE, and when it does, it takes the IDE down. It always fails in the .exe in some way, but usually an immediate app crash.

Can anyone see an obvious cause for this in the code? 

 

If I debug step this code in the IDE it works fine. If I run it, it randomly crashes.  Compiled exes invariably crash.

 

// pack words from memo into each item of printfields up to ailength until no room left or out of words

string lsPrintFields[4]
int liMaxRows = 4
string lsWords[500]
int liMaxword = 500
string ls_parm = "", c
int liPrintLineLen = 0
int liLineCount = 1 
int i = 0, li_idx = 0
int liPrintLength = 70
string ls_memo
int limemolen

//ids_1 is a object level datastore the is packed in the calling routine from the data for the report.

ls_memo = ids_1.getitemstring(1, "fdcompinvmemo")
limemolen = Len (ls_memo)

for i = 1 to limemolen
	c = Mid (ls_memo, i, 1)
	// match whitespace chars

	choose case c
		case "~t", "~r", "~n", " "
			if (li_idx >= liMaxword) then
				exit
			else
				if ls_parm <> "" then
					li_idx ++
					lsWords[li_idx] = ls_parm
					ls_parm = ""
				end if
			end if
		case "&" 
			ls_parm += '&'
			ls_parm += c
		case "'", "~""
			ls_parm += '~~'
			ls_parm += c
		case else
			ls_parm += c
end choose
	
next

if (li_idx < liMaxword) then
	if ls_parm <> "" then
		li_idx ++
		lsWords[li_idx] = ls_parm
	end if
end if

lsprintfields[liLineCount] = ""

for i = 1 to limaxword
	
	if lswords[i] = "" or isnull(lswords[i]) then
		exit
	end if
	
	// if there is enough room left add word/block
	
	if (liPrintLineLen +  len(lsWords[i])  + 1) < liPrintLength then
	
		if len(lsprintfields[liLineCount]) > 0 then
		  lsprintfields[liLineCount] = lsprintfields[liLineCount] + " "
		end if
		
		lsprintfields[liLineCount] = lsprintfields[liLineCount] + lsWords[i]
		
		liPrintLineLen = len(lsprintfields[liLineCount])  
	else
		//go to next line unless we're out of space 

		if (liLineCount >= liMaxRows) then
			exit
		else
			liLineCount++
		
             lsprintfields[liLineCount] = lsWords[i] + " "

			liPrintLineLen = len(lsprintfields[liLineCount])
		end if
	end if
next 

//copy lines into memo fields if not blank
// report datawindow contains text fields t_memo1, ... t_memo4

limaxrows = 0
for i = 1 to 4
	if lsprintfields[i] <> "" then
		limaxrows++
		ids_1.Modify ("t_memo" + string(i)+ ".Text='"+ lsprintfields[i] + "'")
	end if
next

return limaxrows

 

请问下我怎样把dw中的数据post发送给对方 oleObjectVar.Object.Application.ActiveDocument.Unprotect('Ha...
Responses (5)
  1. Likes
  2. Latest
  3. Oldest

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom
✖

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.